|
|  Clock
|  Written by Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Clock"

  FLAGS ClickFly AnimateFly AutoFly
  HEIGHT CH + 4 * COH + 11 * COH
  PACKS 1
  ZEROTOWIN 52 - CARDSIN$1

| Tableau

  FOR stack = 7 TO 14
    STACK
      X stack * CW
      Y 0
      First 1,13
      DragUpTo 1
      Deal 5,1
      FLAGS Join____ ClickFly
    END
  END

|  1 o'clock
  FOUNDATION
    X CW * 4
    Y CW * 7 * 1 / 12 - CH * 1 / 12
    DEAL 1,1
    DEALCARD h10
    MAX 5
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

|  2 o'clock
  FOUNDATION
    X CW * 5
    Y CW * 7 * 3 / 12 - CH * 3 / 12
    DEAL 1,1
    DEALCARD s11
    MAX 5
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

|  3 o'clock
  FOUNDATION
    X CW * 6
    Y CW * 7 * 6 / 12 - CH * 6 / 12
    DEAL 1,1
    DEALCARD d12
    MAX 5
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

|  4 o'clock
  FOUNDATION
    X CW * 5
    Y CW * 7 * 9 / 12 - CH * 9 / 12
    DEAL 1,1
    DEALCARD c13
    MAX 5
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

|  5 o'clock
  FOUNDATION
    X CW * 4
    Y CW * 7 * 11 / 12 - CH * 11 / 12
    DEAL 1,1
    DEALCARD h2
    MAX 4
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

|  6 o'clock
  FOUNDATION
    X CW * 3
    Y CW * 7 * 12 / 12 - CH * 12 / 12
    DEAL 1,1
    DEALCARD s3
    MAX 4
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

|  7 o'clock
  FOUNDATION
    X CW * 2
    Y CW * 7 * 11 / 12 - CH * 11 / 12
    DEAL 1,1
    DEALCARD d4
    MAX 4
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

|  8 o'clock
  FOUNDATION
    X CW * 1
    Y CW * 7 * 9 / 12 - CH * 9 / 12
    DEAL 1,1
    DEALCARD c5
    MAX 4
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

|  9 o'clock
  FOUNDATION
    X CW * 0
    Y CW * 7 * 6 / 12 - CH * 6 / 12
    DEAL 1,1
    DEALCARD h6
    MAX 4
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

| 10 o'clock
  FOUNDATION
    X 1 * CW
    Y CW * 7 * 3 / 12 - CH * 3 / 12
    DEAL 1,1
    DEALCARD s7
    MAX 4
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

| 11 o'clock
  FOUNDATION
    X CW * 2
    Y CW * 7 * 1 / 12 - CH * 1 / 12
    DEAL 1,1
    DEALCARD d8
    MAX 4
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END

| 12 o'clock
  FOUNDATION
    X 3 * CW
    Y CW * 7 * 0 / 12 - CH * 0 / 12
    DEAL 1,1
    DEALCARD c9
    MAX 4
    FLAGS JoinSS__ RotateJoin PaintLast
    ID 1
  END


END
